SetRequestedImage(RasterImage,int[],MedicalViewerSetImageOptions) Method

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.MedicalViewer 
 
Private Class MedicalViewerForm : Inherits Form 
   Private _medicalViewer As MedicalViewer 
   Public label As Label 
 
   Private Sub MedicalViewerForm_SizeChanged(ByVal sender As Object, ByVal e As EventArgs) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom) 
   End Sub 
 
   Public Sub New() 
      Dim _codecs As RasterCodecs = New RasterCodecs() 
      Dim _image As RasterImage 
 
      AddHandler SizeChanged, AddressOf MedicalViewerForm_SizeChanged 
 
      ' Create the medical viewer and adjust the size and the location. 
      _medicalViewer = New MedicalViewer(1, 2) 
      _medicalViewer.Location = New Point(0, 0) 
      _medicalViewer.Size = New Size(Me.ClientRectangle.Right, Me.ClientRectangle.Bottom - 10) 
 
      ' Load an image and then add it to the control. 
      '_image = _codecs.Load(LeadtoolsExamples.Common.ImagesPath.Path + "xa.dcm"); 
      Dim cell As MedicalViewerMultiCell = New MedicalViewerMultiCell(Nothing, True, 1, 1) 
      _medicalViewer.Cells.Add(cell) 
 
      ' add some actions that will be used to change the properties of the images inside the control. 
      cell.AddAction(MedicalViewerActionType.WindowLevel) 
      cell.AddAction(MedicalViewerActionType.Alpha) 
      cell.AddAction(MedicalViewerActionType.Offset) 
 
      ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated. 
      cell.SetAction(MedicalViewerActionType.WindowLevel, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active) 
      cell.SetAction(MedicalViewerActionType.Alpha, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active) 
      cell.SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active) 
 
      cell.Rows = 1 
      cell.Columns = 1 
      cell.FitImageToCell = True 
 
      ' adjust some properties of the cell and add some tags. 
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448") 
      _medicalViewer.Cells(0).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      _medicalViewer.Cells(0).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale) 
      _medicalViewer.Cells(0).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData) 
      _medicalViewer.Cells(0).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView) 
 
 
      ' Load another image and then add it to the control. 
      _image = _codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "mr.dcm")) 
      _medicalViewer.Cells.Add(New MedicalViewerMultiCell(_image, True, 2, 2)) 
 
      ' add some actions that will be used to change the properties of the images inside the control. 
      _medicalViewer.Cells(1).AddAction(MedicalViewerActionType.WindowLevel) 
      _medicalViewer.Cells(1).AddAction(MedicalViewerActionType.Alpha) 
      _medicalViewer.Cells(1).AddAction(MedicalViewerActionType.Offset) 
      _medicalViewer.Cells(1).AddAction(MedicalViewerActionType.RectangleRegion) 
 
      ' assign the added actions to a mouse button, meaning that when the user clicks and drags the mouse button, the associated action will be activated. 
      _medicalViewer.Cells(1).SetAction(MedicalViewerActionType.RectangleRegion, MedicalViewerMouseButtons.Left, MedicalViewerActionFlags.Active) 
      _medicalViewer.Cells(1).SetAction(MedicalViewerActionType.Alpha, MedicalViewerMouseButtons.Middle, MedicalViewerActionFlags.Active) 
      _medicalViewer.Cells(1).SetAction(MedicalViewerActionType.Offset, MedicalViewerMouseButtons.Right, MedicalViewerActionFlags.Active) 
 
      ' adjust some properties of the cell and add some tags. 
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.UserData, "EX. ID 230-36-5448") 
      _medicalViewer.Cells(1).SetTag(4, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Frame) 
      _medicalViewer.Cells(1).SetTag(6, MedicalViewerTagAlignment.TopLeft, MedicalViewerTagType.Scale) 
      _medicalViewer.Cells(1).SetTag(2, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.WindowLevelData) 
      _medicalViewer.Cells(1).SetTag(1, MedicalViewerTagAlignment.BottomLeft, MedicalViewerTagType.FieldOfView) 
 
      label = New Label() 
      label.Location = New Point(0, Me.ClientRectangle.Bottom - 10) 
      label.Size = New Size(Me.ClientRectangle.Right, 10) 
      label.Text = "Here the statistical information will appear" 
 
      Controls.Add(_medicalViewer) 
      _medicalViewer.Dock = DockStyle.Fill 
   End Sub 
   Public ReadOnly Property Viewer() As MedicalViewer 
      Get 
         Return _medicalViewer 
      End Get 
   End Property 
End Class 
 
Private Function GetMedicalControl() As MedicalViewerForm 
   Return New MedicalViewerForm() 
End Function 
 
' This example shows how to use the low memory usage feature to display a medical image with multiple pages. it will also invert all the bitmap to show the invert function works even if the bitmap is not loaded yet. 
<TestMethod()> _ 
Public Sub MedicalViewerLowMemoryUsageExample() 
   Dim myForm As MedicalViewerForm = GetMedicalControl() 
   Dim medicalViewer As MedicalViewer = myForm.Viewer 
   Dim cell As MedicalViewerMultiCell = CType(medicalViewer.Cells(0), MedicalViewerMultiCell) 
 
 
   Dim codecs As RasterCodecs = New RasterCodecs() 
   Dim i As Integer = 0 
   Dim count As Integer 
 
 
   Dim info As CodecsImageInfo 
   Dim fileName As String = Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm") 
   info = codecs.GetInformation(fileName, True) 
   count = info.TotalPages 
   Dim a As MedicalViewerImageInformation() = New MedicalViewerImageInformation(count - 1) {} 
 
   i = 0 
   Do While i < count 
      info = codecs.GetInformation(fileName, True, i + 1) 
      a(i) = New MedicalViewerImageInformation() 
      a(i).ImageHeight = info.Height 
      a(i).ImageWidth = info.Width 
      a(i).XResolution = info.XResolution 
      a(i).YResolution = info.YResolution 
      i += 1 
   Loop 
 
   AddHandler cell.ActiveSubCellChanged, AddressOf medicalViewer_ActiveSubCellChanged1 
   AddHandler cell.FramesRequested, AddressOf medicalViewer_FramesRequested 
   cell.EnableLowMemoryUsage(2, count, a) 
   myForm.ShowDialog() 
End Sub 
 
Private Sub medicalViewer_ActiveSubCellChanged1(ByVal sender As Object, ByVal e As MedicalViewerActiveSubCellChangedEventArgs) 
   Dim imageInformation As String = "" 
   Dim cell As MedicalViewerMultiCell = CType(sender, MedicalViewerMultiCell) 
 
   If cell.VirtualImage(e.SubCellIndex).ImageExist Then 
      imageInformation = "Image bit per pixel = " & cell.VirtualImage(e.SubCellIndex).Image.BitsPerPixel.ToString() 
   End If 
 
   CType(cell.ParentViewer.Parent, MedicalViewerForm).label.Text = imageInformation & " HasRegion = " & cell.VirtualImage(e.SubCellIndex).HasRegion 
End Sub 
 
Private Sub medicalViewer_FramesRequested(ByVal sender As Object, ByVal e As MedicalViewerRequestedFramesInformationEventArgs) 
   Dim cell As MedicalViewerMultiCell = CType(sender, MedicalViewerMultiCell) 
   Dim fileName As String = Path.Combine(LEAD_VARS.ImagesDir, "xa.dcm") 
   Dim _codecs As RasterCodecs = New RasterCodecs() 
   Dim i As Integer 
   Dim b As RasterImage 
 
   If e.RequestedFramesIndexes.Length > 0 Then 
      b = _codecs.Load(fileName, 0, CodecsLoadByteOrder.BgrOrGray, e.RequestedFramesIndexes(0) + 1, e.RequestedFramesIndexes(0) + 1) 
   Else 
      Return 
   End If 
 
   i = 1 
   Do While i < e.RequestedFramesIndexes.Length 
      b.AddPage(_codecs.Load(fileName, 0, CodecsLoadByteOrder.BgrOrGray, e.RequestedFramesIndexes(i) + 1, e.RequestedFramesIndexes(i) + 1)) 
      i += 1 
   Loop 
 
   cell.SetRequestedImage(b, e.RequestedFramesIndexes, MedicalViewerSetImageOptions.Insert) 
End Sub 
 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class